home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1997 February / Computer Life February 1997.iso / TELME / COMMS / MOBI5000.SRP < prev    next >
Text File  |  1996-06-04  |  1KB  |  72 lines
  1. rem Copyright (c) PhoneLink Data PLC 
  2. rem Mobile - Mobidem (10/8/95)
  3.  
  4. label InitDevice
  5. echo off
  6. echo script[56]
  7. send    "at&fchar(13)"
  8. timeout 5,modem_fail
  9. find    "OK"
  10. rem compression initialisation string
  11. rem send        "at&d4#f1#K0S7=30S12=0S40=1S47=1S50=2S51=2#t1#w0char(13)"
  12. rem normal initialisation string
  13. echo script[57]
  14. send    "at&d4#f1#K0S7=30S12=0S40=1#t1#w0char(13)" 
  15. timeout 5,modem_fail
  16. find    "OK"
  17. label OffToGate
  18. echo off
  19. echo script[52]..
  20. send    "atdt{PreTel}{SiteTel}{Postfix}/{Sub},11char(13)"
  21. timeout 40,connect_fail
  22. finderr 0,BUSY,busy
  23. finderr 103,NO DIALTONE,connect_fail
  24. finderr 0,NO CARRIER,no_carrier
  25. find    "CONNECT"
  26. echo script[54].
  27. end
  28.  
  29. label GateToOff
  30. echo off
  31. echo script[92]
  32. send    "+++"
  33. timeout 5,command_mode_fail
  34. find    "OK"
  35. send    "ath1#w1char(13)"
  36. timeout 5,hang_up_fail
  37. find    "OK"
  38. echo script[99].
  39. end
  40.  
  41. label mobidem_offline
  42. echo script[92]
  43. send    "ath1#w1char(13)"
  44. timeout 5,hang_up
  45. find    "OK"
  46. label hang_up
  47. abort
  48.  
  49. label modem_fail
  50. echo script[23]
  51. abort
  52.  
  53. label connect_fail
  54. echo script[1]
  55. goto mobidem_offline
  56.  
  57. label busy
  58. echo script[2]
  59. goto mobidem_offline
  60.  
  61. label no_carrier
  62. echo script[3]
  63. goto mobidem_offline
  64.  
  65. label command_mode_fail
  66. echo script[15]
  67. goto mobidem_offline
  68.  
  69. label hang_up_fail
  70. echo script[17]
  71. abort
  72.